home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / info / cad08n10.zip / MYLINE.LSP < prev    next >
Lisp/Scheme  |  1994-02-21  |  217b  |  11 lines
  1. (defun C:myline ()
  2.     (setq e 1)
  3.     (while e
  4.       (setq pt1 (getpoint"\nPick the first point  "))
  5.       (if (= pt1 nil)
  6.         (prompt "\nYou didn't pick a point  ")
  7.         (setq e nil)
  8.       )
  9.     )
  10. )
  11.